Apple Product Training 1991 Spring/Apple-Training-Spring-1991.iso/Archives/HyperCard 2.0 Training/•HC 2.0-3/•HC 2.0-3/stack.txt

Text File | 1990-04-06 | 6.6 KB | 233 lines

-- stack: in.0-3
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2695
-- card count: 5
-- first card id: 5586
-- list block id: 2095
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 38560 bytes
-- stack block size: 6656 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xB700EA00AD005B00
-- patterns[34]: 0x2449922449922449
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- ================ Apple Training Support =================
--
-- Project Name: HyperCard 2.0 Product Training
--
-- Apple employees:
-- Design and Development: Jeff Brechlin
-- Team Leader: Mary VanRiper
--
-- Contractors:
-- Design/Animations: Anne Wysocki
-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki
-- Last modified: April 6, 1990
-- ========================================================


--• GLOBALS:
--      DisSpeed:  the speed to use for visual dissolves

---------------------------------------------------------------------
--          NAVIGATION HANDLERS

-- This handler goes to the card chosen by the user.
-- "goMain", "goSect1", and "goSect2" are below.
on goto CdName, Section, IDnum
  global MapMode
  if MapMode is "graph" then
    DeHilite
    Flash
  end if
  if "bkgnd" is in the name of target then goMain CdName
  else if Section is "section 1:" then goSect1 CdName, IDnum
  else if Section is "section 2:" then goSect2 CdName, IDnum
  else goSect1 CdName, IDnum
end goto



-- This handler goes to one of the Main-level cards.
on goMain CdName
  global DisSpeed
  visual DisSpeed
  go cd CdName of "Intro to HyperCard 2.0"
  --  openCard
end goMain

-- Go to a cd from the Basic Menu or the Support Menu.
on goSect1 CdName, IDnum
  global DisSpeed, OriginCdName,mapMode
  put the lockScreen into realMapMode
  lock screen
  put the short name of this cd into OriginCdName
  if CdName contains "Introduction to" then
    set lockmessages to true
    go to cd OriginCdName of "Intro to HyperCard 2.0"
    --    set the icon of bg btn "section" to OriginCdName
    send mouseUp to btn id IDnum
    set lockmessages to false
    if realMapMode is true then unlock screen
    unlock screen with DisSpeed
    openCard
  else
    go to cd OriginCdName of "Intro to HyperCard 2.0"
    --    set the icon of bg btn "section" to OriginCdName
    send mouseUp to btn id IDnum
    unlock screen with DisSpeed
  end if
end goSect1

-- Go to a cd from the Nuts & Bolts Menu.
on goSect2 CdName, IDnum
  global DisSpeed, OriginCdName
  lock screen
  -- Is it in the intro (not New in 2.0) section?
  put the short name of this cd into OriginCdName

  put  "Stacks,The Home Stack,Windows,Cards,Buttons,Text Fields" & ",Menus,Graphics,Printing,Other Tools,Section 2:1" into introList
  put (cdName is in introList) into IsInFirstPt

  if IsInFirstPt then
    go to cd "section 2:1" of "Intro to HyperCard 2.0"
    send mouseUp to btn "checkboxa"
    send mouseUp to btn id IDnum
  else
    go to cd "section 2:2" of "Intro to HyperCard 2.0"
    send mouseUp to btn "checkboxb"
    send mouseUp to btn id IDnum
  end if

  unlock screen with DisSpeed
end goSect2

---------------------------------------------------------------------
--          HILITING HANDLERS

-- Hilite the btn showing where the user came from.
on HiliteMap
  global CameFrom
  if the short name of this cd is "Level 1" then
    set the hilite of bg btn CameFrom to true
  else
    put number of cd btns into NumBtns
    repeat with i=1 to NumBtns
      if (char 1 to 15 of the short name of btn i) is CameFrom then
        set the hilite of btn i to true
        exit repeat
      end if
    end repeat
  end if
end HiliteMap

-- Dehilite all bg & cd btns
on DeHilite
  repeat with i=5 to number of bg btns
    set the hilite of bg btn i to false
  end repeat

  repeat with i=1 to the number of  btns
    set the hilite of  btn i to false
  end repeat
end DeHilite

-- Make the clicked btn flash
on Flash object
  set the hilite of the target to false
  wait 10
  set the hilite of the target to true
  wait 10
  set the hilite of the target to false
end Flash


-- Remove leading spaces from a string of chars
function stripLeadBlanks string
return (word 1 of string && (word 2 to (the number of words of string) of string))
end stripLeadBlanks

--===================

-- These handlers trap for arrow keys and menu choices
-- so they can't be used to navigate.

on arrowKey
end arrowKey

on enterKey
end enterKey

on returnKey
end returnKey

on doMenu menuChoice
  if menuChoice is in "Home,Quit HyperCard,Help,New Stack...,Open Stack..." then
    global CameFrom,stakName
    put the short name of this cd into CameFrom
    put the short name of this stack into stakName
    lock screen
    deHilite
    go to cd "hi" of stack "Intro to HyperCard 2.0"
  else if menuChoice is in "Back,Recent,First,Prev,Next,Last" or menuChoice is in "Find...,Message,New Card,Delete Card,Cut Card" then
    exit to HyperCard
  end if
  pass doMenu
end doMenu